home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4182 / source / scrnscro.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  916b  |  30 lines
  1. 10 CURS
  2. 100 REM SET START POINT
  3. 110 VARNAME
  4. 120 REM REMEMBER A SO YOU CAN USE IT FOR LATER CHANGES
  5. 130 FOR
  6. 140 REM SET HOW MANY COLUMNS OF BLOCKS
  7. 150 FILL
  8. 160 REM FILL 1760/160 LINES WITH PATTERN
  9. 170 FILL
  10. 180 REM FILL A LINE BLANK
  11. 190 ROL
  12. 20 REM SET UP SCREEN DISPLAY
  13. 200 REM ROTATE WORD "B" FOR MORE DETAIL
  14. 210 VARNAME
  15. 220 NEXT
  16. 230 SCREEN SWAP
  17. 240 REM SWAP CHANGE
  18. 250 ROL
  19. 260 REM ROTATE WORD "A" FOR ACTUAL SCREEN SCROLL
  20. 270 REM ADJUST THE 1 AFTER THE .W FOR THE STEP OF THE SCROLL
  21. 280 GOTO
  22. 290 REM LOOP PROGRAM
  23. 30 COLOUR
  24. 40 REM SET COLOUR OF SCROLLY BACKGROUND
  25. 50 LOGIC
  26. 60 REM SET UP SCREEN
  27. 70 VARNAME
  28. 80 REM SET UP PATTERN FOR FILL
  29. 90 VARNAME
  30.